home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
menuman.zip
/
SAMPLEA.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-04-06
|
2KB
|
115 lines
' An example of using a menu to call subroutines.
' See MENUMAN.DOC for more information.
DECLARE SUB GoodBye ()
DECLARE SUB LevelA ()
DECLARE SUB LevelB ()
DECLARE SUB LevelC ()
DECLARE SUB LevelD ()
DECLARE SUB LevelE ()
DECLARE SUB LevelF ()
DECLARE SUB LevelG ()
DECLARE SUB Main ()
CLS
Main
SUB GoodBye
CLS
LOCATE 15, 25: COLOR 0, 15: PRINT " DEMO PROGRAM OVER ": COLOR 15, 0
SLEEP 10
SYSTEM
END SUB
SUB LevelA
CLS
LOCATE 3, 1: PRINT STRING$(55, 219); " THIS IS LEVEL A"
SLEEP 10
Main
END SUB
SUB LevelB
CLS
LOCATE 5, 1: PRINT STRING$(55, 219); " THIS IS LEVEL B"
SLEEP 10
Main
END SUB
SUB LevelC
CLS
LOCATE 7, 1: PRINT STRING$(55, 219); " THIS IS LEVEL C"
SLEEP 10
Main
END SUB
SUB LevelD
CLS
LOCATE 9, 1: PRINT STRING$(55, 219); " THIS IS LEVEL D"
SLEEP 10
Main
END SUB
SUB LevelE
CLS
LOCATE 11, 1: PRINT STRING$(55, 219); " THIS IS LEVEL E"
SLEEP 10
Main
END SUB
SUB LevelF
CLS
LOCATE 13, 1: PRINT STRING$(55, 219); " THIS IS LEVEL F"
SLEEP 10
Main
END SUB
SUB LevelG
CLS
LOCATE 15, 1: PRINT STRING$(55, 219); " THIS IS LEVEL G"
SLEEP 10
Main
END SUB
SUB Main
Top:
CLS
LOCATE 6, 1: PRINT STRING$(80, 221)
FOR SIDE = 2 TO 10
PRINT STRING$(5, 221); SPACE$(70); STRING$(5, 221)
NEXT
PRINT STRING$(80, 221)
title$ = "SAMPLE FOR SUBROUTINES"
X = (80 - LEN(title$)) / 2
LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$; : COLOR 7, 0
LOCATE 8, 15: PRINT "A } CALL LEVEL A"; TAB(45); "E } CALL LEVEL E"
LOCATE 10, 15: PRINT "B } CALL LEVEL B"; TAB(45); "F } CALL LEVEL F"
LOCATE 12, 15: PRINT "C } CALL LEVEL C"; TAB(45); "G } CALL LEVEL G"
LOCATE 14, 15: PRINT "D } CALL LEVEL D"; TAB(45); "H } QUIT PROGRAM"
DO: Choice$ = INKEY$
LOOP WHILE Choice$ = ""
Choice$ = UCASE$(Choice$)
SELECT CASE ASC(Choice$)
CASE 65: LevelA
CASE 66: LevelB
CASE 67: LevelC
CASE 68: LevelD
CASE 69: LevelE
CASE 70: LevelF
CASE 71: LevelG
CASE 72: GoodBye
CASE ELSE
LOCATE 23, 23: COLOR 15, 0: PRINT " WRONG KEY PRESSED -- TRY AGAIN ": COLOR 7, 0
SLEEP 3
GOTO Top
END SELECT
END SUB